-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2582
-- card count: 3
-- first card id: 2885
-- list block id: 3510
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 27936 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x01258000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- CatStuff  by  John B. Lockhart
-- Copyright ©1990.  Please read the help card for more information.

on openStack
  global findString
  put empty into findString
end openStack

on doMenu choice
  global findString,findType,findChunk,findCard,findField
  if choice is "Find..." then
    get loc of msg
    set loc of msg to -32767,-32767
    put empty
    hide msg
    set loc of msg to it
    ask "Find what?"
    if it is not empty then
      put it into findString
      answer "Type of search?" with "Whole Word" or "First Part" or "Slide"
      put it into findType
      answer "Field to search?" with "Label" or "Catalog"
      put it into findField
      put empty into findChunk
      put empty into findCard
      doFind
    end if
  else
    pass doMenu
  end if
end doMenu

on doFind
  global findString,findType,findChunk,findCard,findField
  lock screen
  set the cursor to watch
  repeat
    if findType is "Slide" then
      find chars findString in field findField
    else
      if findType is "Whole Word" then
        find word findString in field findField
      else
        find findString in field findField
      end if
    end if
    if (the result is "not found") or ((findChunk = the foundChunk) and (findCard = the id of this card)) then
      answer "No (more) instances of “" & findString & "” found." with "Ok"
      put empty into findString
      if the short name of this background is not "Main" then
        go to background "Main"
      end if
      unlock screen
      exit repeat
    end if
    if findChunk is empty then
      put the foundChunk into findChunk
      put the id of this card into findCard
    end if
    if the short name of this background is "Main" then
      unlock screen
      exit repeat
    end if
  end repeat
  set the cursor to hand
end doFind

on returnKey
  global findString
  if (findString is not empty) and (msg is empty) then
    doFind
  else
    pass returnKey
  end if
end returnKey